home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1999 January - Disc 2 / Macworld (1999-01) (Disk 2).dmg / Serious Demos / Symbolic Composer 4.2 / Environment / System / CADAR / Symbols / Chords / scale-chords < prev    next >
Lisp/Scheme  |  1998-10-22  |  886b  |  32 lines
  1. scale-chords chords &key 
  2. (type 'min) (meth 'sum)
  3.  
  4. legal types min or max
  5. legal meths sum, low or high
  6.  
  7. sorts chords in different ways by either
  8. lowest, highest or notesum.
  9. when two chords have the same sum picks by either
  10. min or max.
  11.  
  12.  
  13. (setq chords '(ajk dhgd ehg csb cghj kjhd acge vg dyt cvg acgd))
  14.  
  15. (scale-chords chords :meth 'low :type 'min)
  16. ->(acgd acge ajk csb cghj cvg dhgd kjhd dyt ehg vg)
  17.  
  18. (scale-chords chords :meth 'low :type 'max)
  19. ->(ajk acge acgd csb cvg cghj dyt kjhd dhgd ehg vg)
  20.  
  21. (scale-chords chords :meth 'high :type 'min)
  22. ->(dyt vg cvg csb ajk kjhd cghj dhgd ehg acgd acge)
  23.  
  24. (scale-chords chords :meth 'high :type 'max)
  25. ->(dyt vg cvg csb kjhd ajk cghj ehg dhgd acge acgd)
  26.  
  27. (scale-chords chords :meth 'sum :type 'min)
  28. ->(acgd acge ehg ajk dhgd csb cghj vg cvg kjhd dyt)
  29.  
  30. (scale-chords chords :meth 'sum :type 'max)
  31. ->(acgd acge ehg dhgd ajk csb cghj vg kjhd cvg dyt)
  32.